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; FACILITY: 
VAX/VMS Executive, 1/0 Drivers 

ABSTRACT: 

This driver is an example driver for the DMF32 parallel port. | 

: This driver implements the OR11C compatibility mode on the device. 
; It does not implement the silo or DMA options, but serves. as a 

: template to which such features could be added. 

: This module contains the DMF32 PARALLEL PORT driver: 

: Tables for loading and dispatching 

: Controller initialization routine 

s FDT routine 

; The start I/0 routine 

3 The interrupt service routine 

: Device specific Cancel 1/0 

; ENVIRONMENT : 

Kernal Mode, Non-paged 

AUTHOR : 


Jake VanNoy January 1982 


XIC 
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MODIFIED BY: 
v04-001 JLV0396 Jake VanNoy 66-SEP-1984 “ 
Add AVL to DEVCHAR, 
v03-005 JLV0385 Jake VanNoy 23-JUL-1984 
Add DPTSM_SVP to DPT. f 
v03-004 JLV0341 Jake VanNoy 28-MAR-1984 
Correct Device IPL. 
v03-003 wHM0002 Bill Matthews 16-Feb-1984 
Second part of change for edit WHM0001. 


ec= 
Added code to support new IDB fields IDB$B_COMBO_VECTOR 
and I1DB$B8_COMBO_CSR_OFFSET for Sotere eins the main CSR 
address and loading the soft vector for the combo device. 


v03-001 KDM0002 Kathleen D. Morse 28-Jun-1982 
Added S$DCDEF and S$DYNDEF. 


on 
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-SBTTL Description of Interface 


a 
+ 


he DMF32 Parallel Port interface is a 16 bit parallel port for interfacing 
to a user device. It includes a DR11C compatibility mode (used for word 
mode within this driver), a silo (buffered) mode (not implemented by this 
driver), and a DMA mode (also not implemented by this driver). The interface 
looks Like the following: 


teerecne + t¢eowecoe + 
{ DD famed CTRL 0 -ceeeneen= (ce 
" t=e=> CTRL 1 ----- ooee>| : 
{ 3 been REQ A <ecewnennnne = ee 
8 fee REO 8 geo wenn ; 
{ PB f/ee= DATA saeeennnnne Noe ae 
: pea 16 LINES -------- ‘i ’ ' 
T — New Data Ready -->! C (pulsed on write to OUTBUF) 
' sse=> Data Tx'ed -----= >; E { (pulsed on read from INBUF) 
a + on + 


+ 
+ 


nn 


cl 


oO 
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+ 
+ 


This driver may be tested eine the following configuration of two DMF32's: 
The control Lines (CTRL 0 and 1) should be tied into request Lines (REQ A 
and B) on the other device. Setting CTRL 0 on the first device causes an 
interrupt on REQ A on the second device (provided interrupt enable A is set). 


: $eeennne * +eenecee + 
: 1  D  feeee=> CTRL 0 ---------- > REQ A <---=->! p | 
: BR ES ue. ee oh peneerme --> REQ B ------ ae 4 
: a REQ A <q--------- CTRL 0 <q----- ie Eee 
; ee I ip eoecee REQ B <oeweeneee= CTRL 1 <ooeeoe i Be 
: { Pp tfee= DATA <ceee= 2ore----------------- iio oe 
;: ? t\=~= 16 LINES (in each direction) nog § 9 
: { 1 ===> New Data Ready (not used) Pe ae 
; ‘ i=-=> Data Tx'ed (not used) 
RBS se 7 Rcclaned : 


xe 


+ 
— 


wn 


oe 


aQ 


Be ee Ge Fe Se Se Ge Se Se Se Be Se Bee Oe Oe ee BH Se Oe ee BH Be 
7 


10$ 
208 
301 


“= 
_ 
co 
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- SBTTL Documentation on interface 


The DMF32 parallel port exchanges one 16-bit word at a time. A single 
woe Mem va transfers a buffer of data, with an interrupt requested for 
each word. 


wn 


For each buffer of data transferred, the DMF32 parallel port allows for 

ce becege of additional bits of information: the Control and Status 
Register (CSR) function (CTRL) and status (REQUEST) bits. These bits are 
accessible to an application process through the device driver QI10 

interface. The CTRL bits are labeled CTRL 0 and CTRL 1. The REQUEST 

bits are Labeled REQUEST A and REQUEST B. 


The user device interfaced to the DMF32 parallel port interprets the 
value of the two CTRL bits. The Q10 request that initiates the transfer 
specifies the IOSM_SETFNCT modifer to indicate a change in the value 
for the CTRL bits. The P4 argument of the Ae ig specifies this value. 
P4 bits 0 and 1 correspond to CTRL bits 0 and 1 respectively. Bits 2 
through 31 are not used. If required, the CTRL bits must be set for each 
Pres et The CTRL bits set in the CSR are passed directly to the user 
evice. 


a 


Sete Se Se Se Se Se Se Se Se Se Ge Se Be FH Se Se Se Se ee Se Se 
-_ 


The device class for the DMF32 peratias port is DCS_REALTIME and the 
device type is DT$_XI_DR11C. The DMF32 parallel port driver does not XI. 
use the default buffer size field. The value of this field is set to 


65,535. This driver defines no device-dependent characteristics. ; FR 
The DMF32 parallel port can perform logical, virtual, and physical 1/0 
operations. The basic 1/0 functions are read, write, set mode, and set 
characteristics. 

woe ewer mew wee ee ee ge eee mowers earn oe deena eee ee ee ew meee + | 

! Function Code and : Function ! Function : : F 
: Arguments ! Modifiers ! ! 

: eo ° eee ere nme enw eee . erer eer ere wees en rece . 

i JO$_READLBLK P1,P2,- ' IOSM_SETFNCT | Read block :. 

; P3,P4 ! JOSM_RESET : : 

; 1OSM_TIMED } | | 
i JO$_WRITELBLK_P1,P2,- | IOSM_SETFNCT ‘Write Logical block! | 
P3,Ph | JOSMZRESET =! 

; 1OSM_TIMED } 

i JOS_SETMODE P1,P3 i JOSM_ATTNAST ‘Set PORT charact- | | 31 
: : ‘eristics for subse-! | : ¢ 
; quent operations ! | i] 
i JOS_SETCHAR P1,P3 i JOSM_ATTNAST ‘Set PORT charact- | 408 
: ; teristics for subse-! 

: ; quent operations - 

+ Peewee Beto ee ee BEE SE SESS + wear sce a Le eee ee Sunreeinieen cao cen es + 


De Se Oe Oe Oe Be Be Ge Be Ge Oe Be Ge Be Be Ge Se Be Be Be Be Ge Se BHO Se Oe Bes Oe Se Oe FH Se Os Oe Oe Oe Oe Os Oe Oe Oe Oe Oe Oe Oe OHO ee ee OHSS 


Not in above table are functions IJO$S_READPBLK, IOS_READVBLK, WRITEPBLK 
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and WRITELBLK. There is no functional difference in these operations. 

Although the DMF32 parallel port does not differentiate between logical, | 

virtual, and payescet 1/0 functions (all are treated identically), the 608 
user must have the required privilege to issue a request. 708 


The function-dependent arguments for the read and write function codes are: 


fe) IOSM_TIMED - set the eee timeout interval for the data 
transfer request. The P35 argument specifies the timeout 
interval value in seconds. for consistent results, this 


; 0 Pi =-- the starting virtual address of the buffer that ‘ 

; is to receive data in the case of a reao operation; or, in ‘ 

; the case of a write operation, the eiriyet address of the : 0 
; buffer that is to send data to the DMF32 parallel port. ’ 

; Modify access to the buffer, rather than read or write 

; access, is checked for all block mode read and write | 10€ 
: requests. 

: 0 P2 -- the size of the data buffer in pytes. that is, the 

; transfer count. Since the DMF32 parallel port performs : 

$ word transfers, the transfer count must be an even value. 4 
3: 0 P3 == the timeout period for this request (in seconds). . 

; The value specified must be equal to or greater than 2. | :f 
; IOSM_TIMED must be specified. The default timeout value for each : 

; request is 10 seconds. : 

; 0 P4 -- the value of the DMF32 perpl let port Command and Status ; 

5 Register (CSR) function (CTRL) bits to be set. If | ‘ 

; 1O3M_SETFNCT is specified, the low-order three bits of P4 ‘ 

: (2:0) are written to CSR CTRL bits 1:0 (respectively) at the : 

; time of transfer. : 

° | e 

; The transfer count specified by the P2 argument must be an even number 7“ 
: of bytes. If an odd number or more than 65534 bytes is specifed, an 

3 error (SS$_BADPARAM) is returned in the 1/0 status block (I0SB). If the WOR 
; transfer count is 0, the driver will transfer no data. However, if | 

; IOSM_SETFNCT is specified and P2 is 0, the driver will set the CTRL bits : 0 
z in the OMF32 parallel port CSR, and return the current CSR status bit 

; values in the JOSB. 108 
; The read and write Q10 functions can take three function modifiers: | ss 
<<. IOSM_SETFNCT = set the function (CTRL) bits in the DMF32 parallel 34 
: ort CSR before the data transfer is initiated. The : he 
: ow-order two bits of the P4 argument epect ty ghe CTRL : 

; bits. The user device that interfaces the DMF32 PARALLEL 3 0 
; PORT receives the CTRL bits directly and their value is 3 

3 interpreted entirely by the device. : 

; If an unsolicited interrupt is received from the DMF32 parallel port, no 3 

3; read or write request is posted, and the next request § for a word mode j~ 
3; read, the driver will return the word read from the DMF32 parallel port 

: INBUF and store it in the first word of the user's buffer. In this case wOF 
3 the driver does not wait for an interrupt. 104 


F 
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value must be equal to or greater than 2. 


1O$M_RESET - perform a device reset to the DMF32 parallel port before 
any I/O operation is initiated. This function does not 
affect any other device on the system or on the DMF32. 


°o 


The set mode and characteristic function codes are: 

° 10$_SETMODE 

° 10$_SETCHAR 

These functions take the following device/function-dependent arguments: 

° Pl = the virtual address of a quadword characteristics buffer. If 
the function modifer IOSM_ATTNAST is specified, P1 i 
address the AST service routine. In this case, if P1 is 0, 
all attention ASTs are disabled. 

° P3 - the access mode to deliver the AST (maximized with the 
poaypeeter 9 access mode). If IOSM_ATTNAST is not specified, P3 
is ignored. 


Figure 3-4 shows the quadword P1 characteristics buffer for 
I03_SETMODE and I0$_SETCHAR. 


° IOSM_ATTNAST - enable attention AST 


This function modifier allows the user process to queue an attention AST 
for delivery when an asynchronous or unsolicited condition is detected 
by the DMF32 parallel port driver. Unlike ASTs for other Q10 functions, 
use of this function modifier does not increment the 1/0 count for the 
requesting process or lock pages in memory for 1/0 buffers. There must 
be an AST quota for each AST. 


Attention ASTs are delivered under the following conditions: 
An unsolicited interrupt from the DMF32 parallel port occurs. 


o.6|[€6S8 


An attention AST is queued and a previous unsolicited interrupt 
has not been acknowledged. 


le Fy at and IO$_SETCHAR function codes can take the following function 
ifier: 


S 


gt a 


See Ge Oe Be Oe Oe Oe Oe Oe Oe Oe Oe Oe Oe OHO Oe Se OH Oe Oe Oe OH Se ee ee 
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The SCANCEL system service is used to flush attention ASTs for a specific 
; channel. 


10$_SETMODE!IOSM_ATTNAST and IO$_SETCHAR! IO$M_ATTNAST are one-time AST 


; enables; they muSt be explicitly re-enabled once the AST has been 
; delivered if the user desires notification of the next interrupt. Use 


of this function modifier does not update the device characteristics. 


After the AST is delivered, the Q10 astprm parameter contains the 
contents of the DMF32 parallel ort CSR in the low two bytes and the 
value read from the DMF32 parallel port INBUF in the high two bytes. 


On completion of each read or write request, the 1/0 status block 
is filled with system and DMF32 parallel port status information. 


+2 10SB 
teeeooee -oe memes esses cee St es + 
4 ‘ ! 
byte count status 
punwecuseseccaessnccece fecescewecnesessecncecece + 
: ! ! 
unused PORT CSR 
$cencccesccecceecescese $occescacecesansececccece + 
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oO 


3 
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< 
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-SBTTL External and local symbol 


; External symbols 


SACBDEF 


SVECDEF 


— 
nm 
Be Se Se Se Be Se Se Be Se Be Se Se Oe Se Se 


; Local symbols 
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definitions 


AST control block 

Channel request block 

Device types 

Device data block 

Driver prolog table 

Dynamic data structure types 
Interrupt data block 

1/0 function codes 

Hardware IPL definitions 

1/0 request packet ; 
Internal processor registers 
Scheduler priority increments 
System messages 

Unit control block 

Interrupt vector block 


; Argument List (AP) offsets for device-dependent Q10 parameters 


P1 = 0 3 
P2 =4 : 
P35 = 8 s 
P4 = 12 : 
PS = 16 3 
P6 = 20 5 
; Other constants 

XI1_DEF_TIMEOUT = 10 ; 
XI_DEF BUFSIZ = 65535 3 
XISK_VEC_OFFSET = 2 ; 

Macros 


MACRO SETCTRL 
BICW 


First Q10 parameter 
Second Q10 parameter 
Third Q10 parameter 
Fourth Q10 parameter 
Fifth Q10 parameter 
Sixth Q10 parameter 


; 10 second default device timeout 
; Default buffer size 


Vector offset 


The SETCTRL macro sets the CTRL 0 and 1 Lines as they have been 


speci: 


occurs before bein 
driver was done be 


ied in P4 in a read or write Q10. 


They are cleared and a wait 


9 set. This is because testing for this example 
ween two DMF32's in word mode, and the delay is so the 


microcode on the DMF32 can see the control Line changes. 


CLRL 
TIMEWAIT 


X10 


20% 


30% 
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; UCB_XI1 definitions that follow the standard UCB fields 
SDEFINI UCB 
-=UCBSL_DPC+4~—; 

SDEF UCBSL_XI_ATIN 


-BLKL 1 ; Attention AST queue 
SDEF UCBSL_X1_DPR 
-BLKL 1 ; Word count? 
SDEF UCBSW_X1_INBUF 
-BLKW 1 ; Input buffer temporary 
SDEF UCBSW_XI_CSR 
-BLKW 1 ; CSR temporary 
; Bit positions for device-dependent status field in UCB (UCBS$W_DEVSTS) 
S$SVIELD UCB,0,<- ; UCB device specific bit definitions 
<ATTNAST, ,M>, = 
SE oe 


UCBSK_SIZE=. 
SDEFEND UCB 


oe 


0 


K 
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: DMF32 Parallel Port CSR definitions 
i SDEFINI XI | 
SDEF XI_CSR Device CSR 
; Bit positions for device control/status register 


SVIELD X1_CSR,0,<- ; Control/status register 
<CTRLO,,M>,- ; Control Line 0 
<CTRL1,,M>,- ; Control Line 1 
<NPR_PS; .M>,= : NPR Primary/Secondary | 
<INDREG,2,M>,- ; Indirect Register Address 
<INTENB_A, ,M>,=- ; Interrupt Enable A 
<INTENB_B, ,M>,- ; Interrupt Enable B 
<REQ_A,,M>,- ; Request A 
<DONE_P; .M>,- ; Done Primary 
<DONE_S,,M>,=- ; Done Secondary 
<,.>,- ; unuse 
<fLUSH, .M>,- 3; Flush Buffer 
<,,"2,> . unuse 
<NXMERR, ,M>, = 3; Non-existent memory error 
<RESET, ,M>,=- ; Master Reset 
: <REQ_B, ,M>=- ; Request B 
KI_CSRSM_IEAB == <XI_CSRSM_INTENB_A>!<XI_CSRSM_INTENB_B> ; Interrupt enable mask 
-BLKW 1 : 
SDEF XI _OUTBUF ; Output buffer Register 
-BLKW 1 
; Note that XI_INBUF and XI_MISC are at the same offset 
SDEF X1I_INBUF ; Input buffer Register (when read) 
SDEF XI_MISC ; Miscellaneous Register (when written) 


; Bit positions for miscellaneous register 
<mOD 


24,R>,- 


Miscellaneous register 


<,10,M>,- ; unused 
<SECBUF ; .M>= i Secondary Buffer Address, Bit 17 
5 <PRIBUF , ,M>- ; Primary Buffer Address, Bit 17 
-BLKW 1 | 
SDEF XI_IND ; Indirect Register 
-BLKW 1 


SDEFEND XI ; End of PORT CSR definitions 


- PAGE 
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-SBTTL Device Driver Tables 


; Driver prologue table 


DPTAB = 
END=X1_END,- 
ADAPTER=UBA, - 
FLAGS=DPT$M_S 
WCBS! ze UCBSK VSIZE. - 
NAME=XIDRIV 


DPT_STORE INIT 
DPT_STORE UCB,UCBS$B_F 


IPL 
DPT_STORE UCB, -UCBSB_ -DIPL 
DPT =STORE UCB. UCBSL_ DEVC 


DE Dv> 
DPT_STORE UCB, UCB$8_ BEVEL ASS 6°s DC$_REAL 
B.bTS_ R1_DR 


DPT“STORE UCB.UCB$B-DEVTYP 
DPT“STORE E UCB -UCBS¥ DEVBUF SiZ.u 7 


DPT “store TREINTT 


DPT_STORE DDB, DDBSL DOT. D,XISDDT 
DPT STORE CRB CRBSL “INTO+4,D,- 


NTERR 
DPT -STORE lhe CReSL INTD2+4,D,- 
DPT “store CRB, ERBSL INTD+VECS$L_INITIAL,=- 
D.X1_CONTROC_INIT 
DPT_STORE EN Nb 


; Driver dispatch table 


DDTAB. = 
DEVN XI = 
SOAR Tox 
FUNC TB= I fu NCFABLE. 
CANCEL=X1I~ CANCEL 


: Function dispatch table 
KI_FUNCTABLE : 


; Valid 1/0 functions 


FUNCTAB , 
<READPBLK ,READLBLK, READVBLK ° 
WRITEPBLK.WRITELBLK,WRITE 
SE TMODE , SE 
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DPT-creation macro 

End of gg Label 
Adapter type 

Allocate system page table 
UCB size 

iriver hone 


Start of load 
initialization table 

; bevice fork IPL 

; Device interrupt IPL 

; Device characteristics 
; Available 


: ; Real Time device 


vine : D 
11¢ 


nput device 
output device 
evice class 
Device Type 
Default bul ter size 


Start of reload 
initialization table 
Address of DDT 
Address of interrupt 
service routine 
Address of interrupt 
service routine 
Address of controller 
initialization routine 
End of initialization 
tables 


DDT-creation macro 
Name of device 
Start 1/0 routine 
FDOT address 

Cancel 1/0 routine 


FDT for driver 


TCHAR, SENSEMODE, VeENSECHAR> 


on 
+ a 
x LJ 


~" 


Oo 


Sete Se Ge Ge Se Ge Se Se Se Se Se ee Se Se Se Ve ee Be ee 
_— 
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; No buffered functions 


X1 READ WRITE 


3; Device-specific FDT 
<READPBCK. REA ° 


z= 
os 
“Oe 


——— — 


N 
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~SBTTL XI_CONTROL_INIT, Controller initialization 


-++ 


: eg be pg Called when driver is loaded, system is booted, or 
; power failure recovery. 


Functional Description: 


1) Allocates the direct data path permanently 

¢} Assigns the controller data channel permanently 
) Clears the Control and Status Register 

4) If power recovery, requests device time-out 


Inputs 
RG address of CSR 
address of IDB 
R6 = address of DDB 
R8 = address of CRB 
Outputs: 


VEC$V_PATHLOCK bit set in CRBS$L_INTD+VEC$B_DATAPATH 
UCB address placed into IDB$L_OQNER 


Bee Oe Oe Be Oe Oe Oe Oe Oe Oe Oe Oe Oe Oe Oe Oe Oe Oe Oe ee ee 
@ 
“ 
nnn 


XI_CONTROL_INIT: 


MOVL IDB$L_UCBLST(R5) ,RO ; Address of UCB 

MOVL RO, IDB$L_OWNER(R5) ; Make permanent controller owner 

BISW  #UCBSM ONLINE, - ft 
UCBSW_STS(RO) ; Set device status ‘‘nn-Line 


; If powerfail has occured and device was active, force device time-out. 
; The user can set his own time-out interval for each request. Time- 
; out is forced so a very long time-out period will be short circuited. 


BBS #UCBSV_POWER, - 
UCB$W_STS(ROS,10$ ; Branch if powerfail 
B1SB #VECSA_PAT 


LOCK, - 
CRBSL_INTD+VECS$B_DATAPATH(R8) ; Permanently allocate direct datapath 


10$: 
crs, IDB$B_COMBO_CSR_OFFSET(R5),RO ; GET OFFSET TO MAIN DMF CSR 
SUBB 1DB$8- COMBO” VECTOR OFFSET (RS) ,~ ; CALCULATE AND LOAD Thc 
IDB$B- VECTOR(RS), (R4) CROJ ; VECTOR ADDRESS 
BSBW X1_DEQ_RESET ; Reset port 
RSB ; Done 


—_— 


oO 


0$ 
0$ 


XIDRIVER.MA 


.SB 
o 
X1_READ_W 


Functiona 


Inputs: 


Outputs: 


B 
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TTL KI_LREAD_WRITE, Data transfer FDT 
RITE, FDOT for READLBLK,READVBLK,READPBLK ,WRITELBLK,WRITEVBLK, 
WRITEPBLK 


L description: 


Rejects QUEUE 1/0's with odd transfer coun 

Rejects QUEUE 1/0's for DMA request to OBA. Direct Data 
PATH on odd byte boundary 

Stores request time-out count gg bbe in P3 into IRP 
Stores CIRL bits specified in P 

Checks block mode transfers for memory nodi ty access 


Address of IRP 
Address of PCB 


nnn 
> 
a 
Qa. 
7 
@ 
“ 
“ 
o 
> 
Cc 
o 
@ 


Buffer Address 

Buffer size in bytes 

Request time-out period (conditional on IO$M_TIM 
Value for CSR CTRL bits (conditional on IO$SM_SET 
0 for Request A, 1 for Request B (DMA) 


ED) 
FNCT) 


vw 
Ww 
nhuunn 


. RO = Error status if odd transfer count 


IRPSL_MEDIA = Time-out count for HE request 


IRP$L_-SEGVBN = CTRL bits for PORT CS 


See Ge Ge Se Oe Oe Oe Oe Oe Be Oe Oe Oe Oe Oe Oe OH Oe Oe Oe Oe Oe SHB Oe Oe ee SH oe 
a + 
‘ 

@ 
Ww 


KI_READ_WRITE: 


BLB 
10$: MOV 
JMP 


C P2(AP) ,20$ ; Branch if transfer count even 
Z7wi «=#sss BADPARAM, RO Set error status code 


G*EXESABORTIO- ; Abort request 
208: MOVZWL IRPSW_FUNC(R3), ; Fetch 1/0 Function code 
MOVL P3(AP) neat. megan ; Set request specific time-out count 
BBS slot. tin ; Branch if time-out specified 
MOVZWL Réout. = 
inst Hentt 3 Else set default timeout value 
30$: EXTZV #2,P ; 
TRPSL” *SEGVBNERS) ; Get value for CTRL bits 
RSB ; Return 


oO 


Seee Se Se Se Se Se Se Se Se ee ee BH Se Se oe 


=< 
—_ 
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30$: CLRL 
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-SBTTL XI_SETMODE, Set Mode, Set Char FDT 


++ 
; XI_SETMODE, FDT routine to process SET MODE and SET CHARACTERISTICS 
; Functional description: 


If IOSM_ATTNAST modifier is set, queue attention AST for device 
Else, finish 1/0. 


; Inputs: 


R3 = 1/0 packet address 

RG = PCB address 

RS = UCB address 

R6 = CCB address 

R7 = Function code _ 

AP = Q10 Paramater List address 
; Outputs: 


If IOSM_ATTNAST is specified. queue AST on UCB attention AST List. 
Else, uSe exec routine to update device characteristics 


X1_SETMODE : 


Get entire function code 
Branch if not an ATTN AST 


MOVZWL IRPSW_FUNC(R3) ,RO 
BBC #10$V_ATTNAST, RO, 208 


; Attention AST request 


PUSHR #*M<R4,R7> 
MOVAB UCBSL_XI ATemcees R7 ; Address of ATTN AST control block List 
JSB G*COMSSETAT TTNAST Set up attention AST 


POPR M<R4,R7> 
BLBC RO" 30$° ; Branch if error 

BISW #UCBSM_ATTNAST 

cal uCBSe DEVSTS(RS) ; Flag ATTN AST expected. 


#UCBSV_UNEXPT 
uUCBSW BEVSTS<(RS) .108 ; Deliver AST if unsolicited interrupt 
DEC_ATTNAST 


BSBwW 
10$: JMP G*EXESFINISHIO 3; Thats all for now 
208: JMP G*EXESSETCHAR ; Set device characteristics 


; zero R1 
; Abort 1/0 with RO as status 


R1 
G*EXESABORTIO 


aef 


D 
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cae -SBTTL XKI_START, Start 1/0 routines 

: XI_START = Start a data transfer, set characteristics, enable ATTN AST. 
; Functional Description: 

This routine has one major function: 


1) Start an 1/0 transfer. The CTRL bits in the port CSR are set. 


the transfer count is zero, the STATUS bits in the PORT CSR 
are read and the request completed. 


If 


; Inputs: 
R3 = Address of the i” request packet 
RS = Address of the U 
; Outputs: 
RO = final status and number of bytes transferred 
R1 = value of CSR STATUS bits 
XI_START: 


; Retrieve the address of the device CSR 


ASSUME IDBSL_CSR EQ 0, 
MOVL UCBSL~CRB(R . aperene of CRB 
MOVL acRBSC_ INIDSVECSL_ IDB(R4S,R 


: + of CSR 
; Fetch the 1/0 function code 


se IRP$W_FUNC(R3),R1 ; Get entire function code 
MOVW RI UCeSu FUNC (RS) 3; Save FUNC in UCB 
EXTZV a108y 


CODE, 
#10$S— “FEODE: R1 R2 
:; If subfunction modifier for device reset is set, do one here 


BBC S*#10$V 335 4h R1,40$ ; Branch if not device reset 
BSBW XI_DEV_RES ; Reset port 


; This must be a data transfer function - i.e. READ OR WRITE 
; Check to see if this is a zero length transfer 


; Extract function field 


:; If so, only set CSR CTRL bits and return STATUS from CSR 
40$: TSTw UCBSW_BCNT(R5) :; Is transfer count zero? 
BNEQ ; No, continue with data transfer 
BBC S*#1O$SV_SETFNCT,R1,60$ ; Set CSR CTRL specified? 
DOSBINT ; Disable Interrupts 
SETCTRL ; Set CTRL bits in CSR 
MOVZWL XI_CSR(R4),R1 ; Save CSR 
ENBINT ; Enable Interrupts 


a 


a @eneeeneeeee eee eeeeaeenene 
m > +e * ° 


‘oOo 


POOIOAOIOAOYAIOAO9IAAIAIAAIAAIAIY AAIAPVAMIAAP9IAPYIAAIAAIAOIMAAMIAIIAIAIAIV LY 
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BRB 70$ ; Skip clearing of R1 
60$: CLRL R1 ; Clear R1 
70$: BISwW #X1_CSRSM_IEAB,- 
K1_CSR(RGY ; Enable device interrupts (A & B) 
MOVZWL #SS$_NORMAL ,RO ; Set success 
REQCOM ; Request done 


: Do the read or the write 


100$: 


+ 
+ 


MOVZWL UCBSW_BCNT(RS) ,RO ; Get byte count 
ASHL #-1,RO,UCBSL_Xi_DPR(RS) ; Make byte count into word count 


-SBTTL = word mode tranfer 


WORD MODE -- Process word mode (interrupt per word) transfer 
FUNCTIONAL DESCRIPTION: 


Data is transferred one word at a time with an interrupt for each word. 
The request is handled separately for a write (from memory to port 

and a read (from port to memory). x 

For a write, data is fetched from memory, loaded into the ODR of the 
port and the system waits for an interrupt. for a read, the system 
waits for a port interrupt and the INBUF is transferred into memory. 

If the unsolicited interrupt flag is set, the first word is transferred 
directly into memory withou waiting for an interrupt. 


WORD_MODE : 
; Dispatch to separate loops on READ or WRITE 


108: 


.PAGE 

++ 

WORD MODE WRITE -- Write (output) in word mode 
FUNCTIONAL DESCRIPTION: 


CMPB #10$_READPBLK ,R2 ; Check for read function 
BEQL WORD_MODE_READ 


Transfer the requested number of words from user memory to 
uae porn OUTBUF one word at a time, wait for interrupt for each 
word. 


WORD_MODE_WRITE: 
10$: 


BSB MOVF RUSER 
DSBINT 


MOVW =—-R1,KI_OUTBUF (R4) 


Get two bytes from user buffer 
Lock out interrupts 

Flag interrupt expected 

Move data to port 


af 


—— WO road 


AAADAAAADAIAADAAOAOAOAODOAODAOD ADO ADOADAAAA AAA AAOAAOAVAAAYAAAIAAIVAPVAAVAVAIAVAIVAY 
~OW-.2B330 Mew OAM 
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BISW #X1_CSRSM_IEAB, - 
KI_CUSR(R4S ; Set Interrupt Enable (A & B) 
SETCTRL ; Clear and set CTRL bits 
; Wait for interrupt, powerfail, or device time-out 
WFIKPCH XI_TIME_OUTW, IRPSL_MEDIA(R3) 
; Decrement transfer count, and loop until done 
; Fork to lower IPL 


LOF ORK | 
DECW UCBSL_XI_DPR(RS) ; ALL words transferred? 
BNEQ 10$ 3; No, loop until finished. 


Creer enrn 


; Transfer is done, clear poaertes expected flag and FORK 
; ALL words read or written in WORD MODE. Finish 1/0. 


RETURN_STATUS: 


MOVZWL #SS$_NORMAL ; Complete success status 

MULW3 #2, UTBSL_XI ; Calculate actual bytes xfered 

SUBW3 = R1,UCB$W BCAT(RS) Ri ; From requested number of a * ee 

INSV R1,#16,#16,R ; And place in high word of RO 

MOVZWL UCBS$W_XI CSR(RS) RI ; Return CSR status 

BICW #<XI_CSRSM_CTRLO! - 
X1_CSRSM_CTRL1>,- 


XI _ CSR(RG) ; Clear CTRL bits 
BISW #XxT_CSRSM_IEAB,- } 

XI_CSR(R4Y ; Enable device interrupts (A & B) 
REQCOM ; Finish request in exec 


PAGE 

++ 

WORD MODE READ -- Read (input) in word mode 
FUNCTIONAL DESCRIPTION: 


Transfer the requested number of words from the port INBUF into 
user memory one word at a time, wait for interrupt for each word. 
If the unexpected (unsolicited) interrupt bit is set, transfer the 
ptret (last received) word to memory without waiting for an 
nterrupt. 


WORD_MODE READ: . 
SETIPL UCBS$B_DIPL(RS) ; Lock out interrupts 


: If an unexpected (unsolicited) interrupt has occured, assume it 
: is for this READ request and return value to user buffer without 
; waiting for an interrupt. 

BBSC 


DSBINT 
BISW 


#UCBSV_UNEXPT, - 

UCBSW_BEVSTS(R5) ,20$ 3 Branch if unexpected interrupt 
#X1_CSRSM_IEAB, - 

KI_USR(R4T ; Set Interrupt Enable (A & B) 
SETCTRL ; Clear and set CTRL bits 


C 
C 
¢ 
¢ 
C 
C 
¢ 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
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C 
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10$: 
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; Wait for interrupt, powerfail, or device time-out 
WFIKPCH XI_TIME_OUTW, IRPSL_MEDIA(R3) 
; Decrement transfer count, and loop until done 


Rl = Two bytes of data from users buffer 
Buffer descriptor in UCB is updated. 


208 10F ORK ; Fork to lower IPL 
; BSBW  MOVTOUSER ; Store two bytes into user buffer 
; Send interrupt back to sender. Acknowledge we got last word. 
DSBINT 
DECW UCBSL_XI_DPR(RS) ; Decrement transfer count 
BNEQ 10$ ; Loop until all words transferred 
SETCTRL 
ENBINT 
— BRw RETURN_STATUS ; Finish request in common code 
: MOVFRUSER = Routine to fetch two bytes from user buffer. | 
‘ 
; INPUTS: | 
: RS = UCB address 
> OUTPUTS: 


-ENABL LSB | 
MOVF RUSER: 
MOVAL <=-(SP),R1 ; Address of temporary stack loc 
MOVZBL #2, ; Fetch two bytes 
JSB G* IOCSMOVF RUSER ; Call exec eg keel to do the deed 
MOVL (SP)+,R1 ; Retrieve the areas 
BRB 208 ; Update UCB buffer pointers 
: MOVTOUSER = Routine to store two bytes into users buffer. | 
> INPUTS: 
; RS = UCB addre ; 
; UCBSW_ XI _INBUF(RS) = Location where two bytes are saved 
: OUTPUTS: 
: Two bytes are stored in user buffer and buffer descriptor in 
3 UCB is updated. 


MOVTOUSER: 
MOVAB UCBSW_XI_INBUF(R5),R1 ; Address of internal buffer 


OOO DDD OVD DV OV OV OV OV OV OV OV OV OV OV OV OV OV OV OV OV OV OV OF OVO OV OVO VV VV OV VOD 


H 
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#2,R2 
G* {OC SMOVTOUSER alle 
pda te “buffer gotnters n UCB 


#2,UCBSW_BOFF (RS) dd t two to buffer de cf tor 
as uf SY BOF UCB$W _BOFF (Ri! Rogue the page s , 


da 
#4 ,UCBSL_SVAPTE(R5) - ary crossed 


LSB 
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0 -SBTTL XI_TIME_OUTW, Device time-out routine 
: Device TIME-OUT 

| ee en 

; Power failure will appear as a device time-out 


X1_TIME_OUTW: ; Time-out for WORD mode transfer 


BSBW X1_DEV_RESET ; Reset controller 
ROVZUL #5S8_ TIMEOUT RO Error status 


CLRW UCBSW_DEVSTS(RS ; Clear ATTN AST flags 
#<UCBSM_TIM 
UCBSM 


Omer eer ew 
ene 


UCBSM_POWER>, ; 
UCBSW_STS(R5) ; Clear unit status flags 


REQCOM Complete 1/0 in exec 
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a -SBTTL XI_LINTERRUPT, Interrupt service routine for PORT 
; XILINTERRUPT, Handles interrupts generated by port 
; Functional description: 


This routine is entered whenever an interrupt is generated 

by the port. It checks that an interrupt was expected. 

If not, it sets the unexpected (unsolicited) norer eves flag. 

All device registers are read and stored into the UCB. ; 
If an interrupt was expected, it calls the driver back at its Wait 
For Interrupt pont, 

Deliver ATTN AST's if unexpected interrupt. 


; Inputs: 


Pointer to address of the device IDB 
saved RO 

saved R1 

saved R 

saved R 

saved R4 

saved R5 

saved PSL 

saved PC 


MOLOSWMMOLO 
vy -t Yt tt 
NMNnnnnnnno 
vuvvVvUvUUvTUU 
ww wrwrwrwrwrww 
nhnnnnnnnn 


The driver is called at its Wait For Interrupt point if an 
interrupt was expected. 
The current value of the port CSR's are stored in the UCB. 


XI_INTERRUPT: ; Interrupt service for PORT 
MOVL a(SP)+,R4 ; Address of IDB and pop SP 
MOV = (R4) RO : CSR and UCB address from IDB 
: Read INBUF and CSR 
; MOVW XI_INBUF(R4), - 
ate UCB$wW_X1_ INBUF (R5) ; Read input data 
UCB$W_XI_CSR(RS) ; Read CSR 


; Check to see if device transfer request active or not 
: If so, call driver back at Wait for Interrupt point and 
; Clear unexpected interrupt flag. 


BBCC #UCBSV_INT, = 
UCB$W_STS(R5),10$ : If clear, no interrupt expected 


; patorrupt expected, clear unexpected interrupt flag and call driver 
; back. 


BICWw §§ #UCBSM_UNEXPT, - 


24 


DRM 


Dron 


ig 
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UCB$W_DEVSTS(R5) ; Clear unexpected interrupt flag 
MOVL UCBSL~FR3(R5) ,R3 3; Restore drivers 
18 aucesC_FPC(RSS : Call driver back after WFIKPCH 
° x 


; Deliver ATTN AST's if no interrupt expected and set unexpected 
: interrupt flag. 


10$: 


BISW #UCBSM_U 
uCBSW Bevsts(as) ; Set unexpected interrupt flag 
BSBW X1_DEC_ATTNAST Deliver ATTN AST 
BISwW XI CSRSM_IEAB,= 
KI_CUSR(R4Y ; Enable device interrupts (A & B) 
; Restore registers and return from interrupt 


20$: 
POPR #*M<RO,R1,R2,R3,R4,R5> ; Restore registers 
REI ; Return from interrupt 
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: Functional description: 


and finish the request. 
Clear interrupt expected flag. 


address of current | 


= 
ea 
“non 


s UCB 


: Inputs: 
; address of the device 
: Outputs: 


XI1_CANCEL: 


BBCC #UCBS$V_ATTNAST 
UCBSW_ BEVSTS(RS) 208 —-: 


; Finish all ATTN AST's for this process. 
PUSHR eoaee’ ~R6,R7> 
MOVAB UCB$L_XI At le R7 
JSB G*COMSFLOSH 
POPR #*M<R2, R6 RS 
BICW #UCBSM_UNEXPT, - 
UCB$W_BEVSTS(R5) : 
; Check to see if a data transfer request 
; for this process on this channel 


20$: 


SETIPL ucese DIPL(RS) : 
JSB oc$c CANCEL IO 3 
Bee but (Bsy ANCEL 
Ucesu STSCR )°308 : 
MOVZWL #SS$_C/ANCEL,RO 3 
CLRL 1 
CLRW UCBs DEVSTS(RS) ; 
BICW <UCBSM_TIM 


UCBSM_BSY 
UCBSA- CANCEL | 
UCBSM_ FH i 
UCBS$M~ TIMOUT> 
ucesu STS(R5) 3 
REQCOM ; 
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-SBTTL XI_CANCEL, Cancel 1/0 routine 


++ 
; KI_LCANCEL, Cancels an 1/0 operation in progress 


Flushes Attention AST queue for the user. 
If transfer in progress, do a device reset to port 


negated value of eoeraes index 
address of the PCB rogues °0 the cancel 


; Cancel 1/0 


ATTN AST enabled? 


Set up channel number 


: Address of Listhe ad 
; Flush ATTN AST's "Toe process 


Clear unexpected interrupt flag 
is in progress 


Lock out device interrupts 
Check if transfer going 


Branch if not for this guy 
Status is request canceled 
Clear unexpected interrupt flag 


Clear unit status flags 
Jump to exec to finish 1/0 


DRM 


COON 


OO 


ON 


COON 


400 
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30$: 


Bet iPt UCBS$B_F IPL(RS) 


$B 


M 
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r to FORK IPL 
rn 


N 
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+ ~SBTTL XI_DEL_ATTNAST, Deliver ATTN AST's 
; KI_LDEL_ATTNAST, Deliver all outstanding ATTN AST's 


; Functional description: 


This routine is used =! the port driver to deliver a 
outstanding attention AST's. It is copied from COM$ 
the exec. In addition, it places the saved value of 
and Input Data Buffer Register in the AST paramater. 


o- 
em 
| 
ero 

—s 


; Inputs: 


; Outputs: 


ag oR) Re Destroyed 
R3,R4,R5 Preserved 


K1_DEL_ATTNAST: 
BBCC 


C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 


#UCBSV_ATTNAST, - 
Ucesu DEVSTS(R5) .308 Any ATIN AST*s expected? 


PUSHR #*M<R3,R4,R5 Save R3,R4, 


10$: MOVL (SP),R1 ; Get address of UCB 

MOVAB UCBSL_XI_ATTN(R1) ,R2 ; Address of ATTN AST Listhead 
MOVL (R2),R5 ; Address of next entry on List 
BEQL ; No next entry, end of loop 
BICW #UCBSM_UNEXPT, - 

UCB$W_BEVSTS(R1) ; Clear unexpected interrupt flag 
MOVL (R5), TR2) 3; Close List 
MOV)  UCBSW_XI_INBUF(R1), - 

ACBS$L_KAST+6(R5) ; Store INBUF in AST paramater 
MOVW UCBS$WIXI_CSR(R1), - 

ACBSL_KAST+4(R5) ; Store CSR in AST paramater 
PUSHAB 86*10$ ; Set return address for FORK 

; __$o that it pone through all AST's 

FORK ; FORK for this AS 


; AST fork procedure 


MOV = ACBSL_KAST(RS5) ,ACBSL_AST(R5) 

; Re-arrange entries 
MOVB ACBSL_KAST+8(R5) ,ACBSB HOD (85) 
MOVL  ACBSL“KAST+ g(R55 ,ACBSC_PID(R ) 


RS = UCB of unit 
| 
| 


0$: POPR #*M<R3,R4,R5> 
0$: RSB 


Restore registers 
Return 


CLRL_ ACBSL_KAST(R Say ee 
MOVZBL #PRI$ IOCOM,R2 ; Set up priority increment 
JMP G*SCHSQAST ; Queue the AST 
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* -SBTTL XI_DEV_RESET, Device reset routine 
X1_DEV_RESET = Device reset routine 


This routine raises IPL to device IPL, performs a device reset to 
the required controler, and re-enables device interrupts. 


Inputs: 

: R4 = Address of Control and Status Register 

: R5 = Address of UCB 

3 Outputs: 

3 Controller is reset, controller interrupts are enabled 


X1_DEV_RESET: 
DSBINT ; Raise IPL to lock all interrupts 
BISW #XI_CSRSM_RESET,- ; 
KI_TSR(R4Y ; Reset device 
TIMEWAIT - ; Timewait to allow reset 
TIME = #500,- 
BITVAL = #Xi_CSRSM_RESET,- 
SOURCE = XI_CSR(R4J,~ 
CONTEXT = W,- 
SENSE = .FALSE. 
BI1SW #X1_CSRSM_JEAB,- 


; Enable device interrupts (A & B) 


ENBINT ; Restore IPL 
RSB 

XI_END: ; End of driver Label 
- END 


DRM 
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